﻿Public Class frmConfiguracion

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Dim sCadena As String = ""
        ' sCadena &= "server=" + txtDireccion.Text + ";User Id=" + txtUsuario.Text + ";password=" + txtPassword.Text + ";database=" + txtBd.Text
        Dim sDatos(4) As String
        ' sDatos(0) = txtDireccion.Text
        sDatos(1) = txtUsuario.Text
        sDatos(2) = txtPassword.Text
        sDatos(3) = txtBd.Text
        GuardarConfiguracion(sDatos)
        ' Cadena = sDatos
        ' txtDireccion.Text = Cadena(0)
        ' txtUsuario.Text = Cadena(1)
        'txtPassword.Text = Cadena(2)
        ' txtBd.Text = Cadena(3)
        ' CType(Me.MdiParent, frmPrincipal).Estado = "Ajustes guardados..."
        Me.Close()
    End Sub

    Private Sub frmConfiguracion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'txtDireccion.Text = Cadena(0)
        'txtUsuario.Text = Cadena(1)
        'txtPassword.Text = Cadena(2)
        'txtBd.Text = Cadena(3)
    End Sub
End Class